home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 03 (1989-03)(MicroSPARC)(Side A).zip
/
Nibble Volume 10, No. 03 (1989-03)(MicroSPARC)(Side A).po
/
RESTORE.S
< prev
next >
Wrap
Text File
|
1996-12-24
|
817b
|
30 lines
********************************
* RESTORE Source Code *
* By Vern L. Mastel *
* Copyright(c) 1989 *
* MicroSPARC, Inc. *
* Concord, MA 01742 *
* *
* Merlin Assembler *
********************************
org $0300
jsr $dd7b ; Evaluate argument
jsr $e752 ; Convert to integer
; and store it in $50,51
jsr $d61a ; Check for that line
bcc error ; If not found, branch
; to Applesoft err
restore lda $9b
sbc #$01
sta $7d ; Put Address-1 of line
lda $9c ; into $7d,&e
sbc #0
sta $7e
rts
error ldx #$5a
jmp $d412